# Load packages
# Data visualization
library(ggplot2)
library(lubridate)
library(dplyr)
library(stringr)
# Import data
movies <- read.csv('data/movies-clean.csv')
# Change datatypes
movies$release_date <- as_date(movies$release_date)
Question 1: How have movie genres changed over time?


Question 2: How do the attributes differ between Universal Pictures and Paramount Pictures?
Check: - number of films - popularity - runtime - genre_one - Vote_average - budget_adj - revenue_adj
Number of Films

Popularity

Runtime

Genre

Vote Average

Budget

Revenue

Question 4: Do budget and revenue, and budget and popularity have any correlation?


# Plot budget and revenue
ggplot(data=movies, aes(x=budget_adj, y=revenue_adj)) +
geom_point() +
geom_smooth(method='lm')
# Plot budget and popularity
ggplot(data=movies, aes(x=budget_adj, y=popularity)) +
geom_point() +
geom_smooth(method='lm')
# Plot revenue and popularity
ggplot(data=movies, aes(x=revenue, y=popularity)) +
geom_point() +
geom_smooth(method='lm')

LS0tCnRpdGxlOiAiTW92aWUgRGF0YWJhc2UiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyfQojIExvYWQgcGFja2FnZXMKIyBEYXRhIHZpc3VhbGl6YXRpb24KbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGx1YnJpZGF0ZSkKbGlicmFyeShkcGx5cikKbGlicmFyeShzdHJpbmdyKQpgYGAKCmBgYHtyfQojIEltcG9ydCBkYXRhCm1vdmllcyA8LSByZWFkLmNzdignZGF0YS9tb3ZpZXMtY2xlYW4uY3N2JykKYGBgCgpgYGB7cn0KIyBDaGFuZ2UgZGF0YXR5cGVzCm1vdmllcyRyZWxlYXNlX2RhdGUgPC0gYXNfZGF0ZShtb3ZpZXMkcmVsZWFzZV9kYXRlKQpgYGAKCgoKCiMgUXVlc3Rpb24gMTogSG93IGhhdmUgbW92aWUgZ2VucmVzIGNoYW5nZWQgb3ZlciB0aW1lPwoKYGBge3J9CiMgR3JhcGggbnVtYmVyIG9mIG1vdmllcyBvdmVyIHRpbWUsIGJ5IGVhY2ggZ2VucmUKZ2dwbG90KGRhdGE9bW92aWVzLCBhZXMoeD1yZWxlYXNlX3llYXIpKSArCiAgZ2VvbV9mcmVxcG9seShhZXMoY29sb3I9Z2VucmVfb25lKSkKYGBgCgpgYGB7cn0KIyBQbG90IHBlcmNlbnRhZ2Ugb2YgbW92aWVzIGVhY2ggeWVhciBwZXIgZ2VucmUsIGJ5IGVhY2ggZ2VucmUKIyBDYWxjdWxhdGUKbW92aWVzLnByb3BvcnRpb25zIDwtIG1vdmllcyAlPiUgCiAgZ3JvdXBfYnkocmVsZWFzZV95ZWFyLCBnZW5yZV9vbmUpICU+JSAKICBzdW1tYXJpc2UobiA9IG4oKSkgJT4lCiAgbXV0YXRlKGZyZXEgPSBuL3N1bShuKSkKCiMgUGxvdApnZ3Bsb3QoZGF0YT1zdWJzZXQobW92aWVzLnByb3BvcnRpb25zLCBnZW5yZV9vbmU9PSdEcmFtYScgfCBnZW5yZV9vbmU9PSdDb21lZHknIHwgZ2VucmVfb25lPT0nQWN0aW9uJyB8IGdlbnJlX29uZT09J0hvcnJvcicgfCBnZW5yZV9vbmU9PSdUaHJpbGxlcicpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9ZnJlcSkpICsKICBnZW9tX3Ntb290aChhZXMoY29sb3I9Z2VucmVfb25lKSkKYGBgCgoKCgojIFF1ZXN0aW9uIDI6IEhvdyBkbyB0aGUgYXR0cmlidXRlcyBkaWZmZXIgYmV0d2VlbiBVbml2ZXJzYWwgUGljdHVyZXMgYW5kIFBhcmFtb3VudCBQaWN0dXJlcz8KCkNoZWNrOgotIG51bWJlciBvZiBmaWxtcwotIHBvcHVsYXJpdHkKLSBydW50aW1lCi0gZ2VucmVfb25lCi0gVm90ZV9hdmVyYWdlCi0gYnVkZ2V0X2FkagotIHJldmVudWVfYWRqCgpgYGB7cn0KIyBDcmVhdGUgZGYgb2YgVW5pdmVyc2FsIFBpY3R1cmVzIGZpbG1zCnVuaXZlcnNhbC5waWN0dXJlcyA8LSBtb3ZpZXMgJT4lCiAgZmlsdGVyKHN0cl9kZXRlY3QocHJvZHVjdGlvbl9jb21wYW5pZXMsICdVbml2ZXJzYWwgUGljdHVyZXMnKSkKCiMgQ3JlYXRlIGRmIG9mIFBhcmFtb3VudCBQaWN0dXJlcyBmaWxtcwpwYXJhbW91bnQucGljdHVyZXMgPC0gbW92aWVzICU+JQogIGZpbHRlcihzdHJfZGV0ZWN0KHByb2R1Y3Rpb25fY29tcGFuaWVzLCAnUGFyYW1vdW50IFBpY3R1cmVzJykpCmBgYAoKCiMjIE51bWJlciBvZiBGaWxtcwpgYGB7cn0KIyBHcmFwaCBudW1iZXIgb2YgZmlsbXMgZm9yIFVuaXZlcnNhbCBQaWN0dXJlcyBhbmQgUGFyYW1vdW50IG92ZXIgdGltZQpnZ3Bsb3QoKSArCiAgZ2VvbV9mcmVxcG9seShkYXRhPXVuaXZlcnNhbC5waWN0dXJlcywgYWVzKHg9cmVsZWFzZV95ZWFyLCBjb2xvcj0nVW5pdmVyc2FsIFBpY3R1cmVzJykpICsKICBnZW9tX2ZyZXFwb2x5KGRhdGE9cGFyYW1vdW50LnBpY3R1cmVzLCBhZXMoeD1yZWxlYXNlX3llYXIsIGNvbG9yPSdQYXJhbW91bnQgUGljdHVyZXMnKSkKYGBgCgoKIyMgUG9wdWxhcml0eQpgYGB7cn0KIyBHcmFwaCBwb3B1bGFyaXR5IG92ZXIgdGltZSBmb3IgVW5pdmVyc2FsIFBpY3R1cmVzIGZpbG1zIGFuZCBQYXJhbW91bnQgUGljdHVyZXMgZmlsbXMKZ2dwbG90KCkgKwogIGdlb21fZnJlcXBvbHkoZGF0YT11bml2ZXJzYWwucGljdHVyZXMsIGFlcyh4PXJlbGVhc2VfZGF0ZSwgY29sb3I9J1VuaXZlcnNhbCBQaWN0dXJlcycpKSArCiAgZ2VvbV9zbW9vdGgoZGF0YT1wYXJhbW91bnQucGljdHVyZXMsIGFlcyh4PXJlbGVhc2VfZGF0ZSwgY29sb3I9J1BhcmFtb3VudCBQaWN0dXJlcycpKQpgYGAKCgojIyBSdW50aW1lCmBgYHtyfQojIEdyYXBoIGF2ZXJhZ2UgcnVudGltZSBvZiBmaWxtcyBvdmVyIHRpbWUsIGZvciB1bml2ZXJzYWwvcGFyYW1vdW50CmdncGxvdCgpICsgCiAgZ2VvbV9zbW9vdGgoZGF0YT11bml2ZXJzYWwucGljdHVyZXMgJT4lIGdyb3VwX2J5KHJlbGVhc2VfeWVhcikgJT4lIHN1bW1hcmlzZShtZWFuPW1lYW4ocnVudGltZSkpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9bWVhbiwgY29sb3I9J1VuaXZlcnNhbCcpKSArCiAgZ2VvbV9zbW9vdGgoZGF0YT1wYXJhbW91bnQucGljdHVyZXMgJT4lIGdyb3VwX2J5KHJlbGVhc2VfeWVhcikgJT4lIHN1bW1hcmlzZShtZWFuPW1lYW4ocnVudGltZSkpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9bWVhbiwgY29sb3I9J1BhcmFtb3VudCcpKQpgYGAKCgojIyBHZW5yZQpgYGB7cn0KIyBQbG90IGdyYXBocyBvZiB1bml2ZXJzYWwgZ2VucmUgdnMuIHBhcmFtb3VudCBnZW5yZQoKIyBEcmFtYQpnZ3Bsb3QoKSArCiAgZ2VvbV9mcmVxcG9seShkYXRhPXN1YnNldCh1bml2ZXJzYWwucGljdHVyZXMsIGdlbnJlX29uZT09J0RyYW1hJyksIGFlcyh4PXJlbGVhc2VfeWVhciwgY29sb3I9J1VuaXZlcnNhbCcpKSArCiAgZ2VvbV9mcmVxcG9seShkYXRhPXN1YnNldChwYXJhbW91bnQucGljdHVyZXMsIGdlbnJlX29uZT09J0RyYW1hJyksIGFlcyh4PXJlbGVhc2VfeWVhciwgY29sb3I9J1BhcmFtb3VudCcpKQoKIyBDb21lZHkKZ2dwbG90KCkgKwogIGdlb21fZnJlcXBvbHkoZGF0YT1zdWJzZXQodW5pdmVyc2FsLnBpY3R1cmVzLCBnZW5yZV9vbmU9PSdDb21lZHknKSwgYWVzKHg9cmVsZWFzZV95ZWFyLCBjb2xvcj0nVW5pdmVyc2FsJykpICsKICBnZW9tX2ZyZXFwb2x5KGRhdGE9c3Vic2V0KHBhcmFtb3VudC5waWN0dXJlcywgZ2VucmVfb25lPT0nQ29tZWR5JyksIGFlcyh4PXJlbGVhc2VfeWVhciwgY29sb3I9J1BhcmFtb3VudCcpKQoKIyBBY3Rpb24KZ2dwbG90KCkgKwogIGdlb21fZnJlcXBvbHkoZGF0YT1zdWJzZXQodW5pdmVyc2FsLnBpY3R1cmVzLCBnZW5yZV9vbmU9PSdBY3Rpb24nKSwgYWVzKHg9cmVsZWFzZV95ZWFyLCBjb2xvcj0nVW5pdmVyc2FsJykpICsKICBnZW9tX2ZyZXFwb2x5KGRhdGE9c3Vic2V0KHBhcmFtb3VudC5waWN0dXJlcywgZ2VucmVfb25lPT0nQWN0aW9uJyksIGFlcyh4PXJlbGVhc2VfeWVhciwgY29sb3I9J1BhcmFtb3VudCcpKQpgYGAKCgojIyBWb3RlIEF2ZXJhZ2UKYGBge3J9CiMgUGxvdCBWb3RlIEF2ZXJhZ2Ugb3ZlciB0aW1lIGZvciBQYXJhbW91bnQgYW5kIFVuaXZlcnNhbApnZ3Bsb3QoKSArCiAgZ2VvbV9zbW9vdGgoZGF0YT11bml2ZXJzYWwucGljdHVyZXMgJT4lIGdyb3VwX2J5KHJlbGVhc2VfeWVhcikgJT4lIHN1bW1hcmlzZShtZWFuPW1lYW4odm90ZV9hdmVyYWdlKSksIGFlcyh4PXJlbGVhc2VfeWVhciwgeT1tZWFuLCBjb2xvcj0nVW5pdmVyc2FsJykpICsKICBnZW9tX3Ntb290aChkYXRhPXBhcmFtb3VudC5waWN0dXJlcyAlPiUgZ3JvdXBfYnkocmVsZWFzZV95ZWFyKSAlPiUgc3VtbWFyaXNlKG1lYW49bWVhbih2b3RlX2F2ZXJhZ2UpKSwgYWVzKHg9cmVsZWFzZV95ZWFyLCB5PW1lYW4sIGNvbG9yPSdQYXJhbW91bnQnKSkKYGBgCgoKIyMgQnVkZ2V0CmBgYHtyfQojIEdyYXBoIHRoZSBhZGp1c3RlZCBidWRnZXRzIG92ZXIgdGltZSBmb3IgdW5pdmVyc2FsL3BhcmFtb3VudApnZ3Bsb3QoKSArCiAgZ2VvbV9zbW9vdGgoZGF0YT11bml2ZXJzYWwucGljdHVyZXMgJT4lIGdyb3VwX2J5KHJlbGVhc2VfeWVhcikgJT4lIHN1bW1hcmlzZShidWRnZXQ9bWVhbihidWRnZXRfYWRqKSksIGFlcyh4PXJlbGVhc2VfeWVhciwgeT1idWRnZXQsIGNvbG9yPSdVbml2ZXJzYWwnKSkgKyAKICBnZW9tX3Ntb290aChkYXRhPXBhcmFtb3VudC5waWN0dXJlcyAlPiUgZ3JvdXBfYnkocmVsZWFzZV95ZWFyKSAlPiUgc3VtbWFyaXNlKGJ1ZGdldD1tZWFuKGJ1ZGdldF9hZGopKSwgYWVzKHg9cmVsZWFzZV95ZWFyLCB5PWJ1ZGdldCwgY29sb3I9J1BhcmFtb3VudCcpKQoKYGBgCgoKIyMgUmV2ZW51ZQpgYGB7cn0KIyBHcmFwaCBSZWxlYXNlIFllYXIgdnMuIFJldmVudWUgZm9yIFVuaXZlcnNhbC9QYXJhbW91bnQgcGljdHVyZXMKZ2dwbG90KCkgKwogIGdlb21fc21vb3RoKGRhdGE9dW5pdmVyc2FsLnBpY3R1cmVzICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2UocmV2ZW51ZT1tZWFuKHJldmVudWVfYWRqKSksIGFlcyh4PXJlbGVhc2VfeWVhciwgeT1yZXZlbnVlLCBjb2xvcj0nVW5pdmVyc2FsJykpICsKICBnZW9tX3Ntb290aChkYXRhPXBhcmFtb3VudC5waWN0dXJlcyAlPiUgZ3JvdXBfYnkocmVsZWFzZV95ZWFyKSAlPiUgc3VtbWFyaXNlKHJldmVudWU9bWVhbihyZXZlbnVlX2FkaikpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9cmV2ZW51ZSwgY29sb3I9J1BhcmFtb3VudCcpKQoKYGBgIAoKCgoKIyBRdWVzdGlvbiAzOiBIb3cgaGF2ZSBtb3ZpZXMgYmFzZWQgb24gbm92ZWxzIHBlcmZvcm1lZCByZWxhdGl2ZSB0byBtb3ZpZXMgbm90IGJhc2VkIG9uIG5vdmVscz8KClBlcmZvcm1hbmNlIE1ldHJpY3MgdG8gbG9vayBhdDoKLSBwb3B1bGFyaXR5Ci0gcnVudGltZQotIHZvdGVfYXZlcmFnZQotIGJ1ZGdldF9hZGoKLSByZXZlbnVlX2FkagoKYGBge3J9CiMgU3BsaXQgZGF0YSBiYXNlZCBvbiBrZXl3b3JkcyBjb250YWluaW5nICdiYXNlZCBvbiBub3ZlbCcKbm92ZWwgPC0gbW92aWVzICU+JQogIGZpbHRlcihzdHJfZGV0ZWN0KGtleXdvcmRzLCAnYmFzZWQgb24gbm92ZWwnKSkKCm5vdC5ub3ZlbCA8LSBtb3ZpZXMgJT4lCiAgZmlsdGVyKCFzdHJfZGV0ZWN0KGtleXdvcmRzLCAnYmFzZWQgb24gbm92ZWwnKSkKYGBgCgoKIyMgUG9wdWxhcml0eQpgYGB7cn0KIyBQbG90IHBvcHVsYXJpdHkgb3ZlciB0aW1lIGZvciBub3ZlbCwgbm9uLW5vdmVsIGZpbG1zCmdncGxvdCgpICsKICBnZW9tX3Ntb290aChkYXRhPW5vdmVsICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2UocG9wdWxhcml0eT1tZWFuKHBvcHVsYXJpdHkpKSwgYWVzKHg9cmVsZWFzZV95ZWFyLCB5PXBvcHVsYXJpdHksIGNvbG9yPSdub3ZlbCcpKSArIAogIGdlb21fc21vb3RoKGRhdGE9bm90Lm5vdmVsICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2UocG9wdWxhcml0eT1tZWFuKHBvcHVsYXJpdHkpKSwgYWVzKHg9cmVsZWFzZV95ZWFyLCB5PXBvcHVsYXJpdHksIGNvbG9yPSdub3Qgbm92ZWwnKSkgCmBgYAoKCiMjIFJ1bnRpbWUKYGBge3J9CiMgUGxvdCBydW50aW1lIG9mIG5vdmVsLCBub24tbm92ZWwgZmlsbXMKZ2dwbG90KCkgKwogIGdlb21fc21vb3RoKGRhdGE9bm92ZWwgJT4lIGdyb3VwX2J5KHJlbGVhc2VfeWVhcikgJT4lIHN1bW1hcmlzZShydW50aW1lPW1lYW4ocnVudGltZSkpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9cnVudGltZSwgY29sb3I9J25vdmVsJykpICsKICBnZW9tX3Ntb290aChkYXRhPW5vdC5ub3ZlbCAlPiUgZ3JvdXBfYnkocmVsZWFzZV95ZWFyKSAlPiUgc3VtbWFyaXNlKHJ1bnRpbWU9bWVhbihydW50aW1lKSksIGFlcyh4PXJlbGVhc2VfeWVhciwgeT1ydW50aW1lLCBjb2xvcj0nbm90IG5vdmVsJykpIApgYGAKCgojIyBWb3RlIEF2ZXJhZ2UKYGBge3J9CiMgUGxvdCBWb3RlIEF2ZXJhZ2Ugb2Ygbm92ZWwsIG5vbi1ub3ZlbCBmaWxtcwpnZ3Bsb3QoKSArCiAgZ2VvbV9zbW9vdGgoZGF0YT1ub3ZlbCAlPiUgZ3JvdXBfYnkocmVsZWFzZV95ZWFyKSAlPiUgc3VtbWFyaXNlKHZvdGVfYXZlcmFnZT1tZWFuKHZvdGVfYXZlcmFnZSkpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9dm90ZV9hdmVyYWdlLCBjb2xvcj0nbm92ZWwnKSkgKwogIGdlb21fc21vb3RoKGRhdGE9bm90Lm5vdmVsICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2Uodm90ZV9hdmVyYWdlPW1lYW4odm90ZV9hdmVyYWdlKSksIGFlcyh4PXJlbGVhc2VfeWVhciwgeT12b3RlX2F2ZXJhZ2UsIGNvbG9yPSdub3Qgbm92ZWwnKSkgCmBgYAoKCiMjIEJ1ZGdldApgYGB7cn0KIyBQbG90IEJ1ZGdldCBvZiBub3ZlbCwgbm9uLW5vdmVsIGZpbG1zCmdncGxvdCgpICsKICBnZW9tX3Ntb290aChkYXRhPW5vdmVsICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2UoYnVkZ2V0PW1lYW4oYnVkZ2V0X2FkaikpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9YnVkZ2V0LCBjb2xvcj0nbm92ZWwnKSkgKwogIGdlb21fc21vb3RoKGRhdGE9bm90Lm5vdmVsICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2UoYnVkZ2V0PW1lYW4oYnVkZ2V0X2FkaikpLCBhZXMoeD1yZWxlYXNlX3llYXIsIHk9YnVkZ2V0LCBjb2xvcj0nbm90IG5vdmVsJykpIApgYGAKCgojIyBSZXZlbnVlCmBgYHtyfQojIFBsb3QgUmV2ZW51ZSBvZiBub3ZlbCwgbm9uLW5vdmVsIGZpbG1zCmdncGxvdCgpICsKICBnZW9tX3Ntb290aChkYXRhPW5vdmVsICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2UocmV2ZW51ZT1tZWFuKHJldmVudWVfYWRqKSksIGFlcyh4PXJlbGVhc2VfeWVhciwgeT1yZXZlbnVlLCBjb2xvcj0nbm92ZWwnKSkgKwogIGdlb21fc21vb3RoKGRhdGE9bm90Lm5vdmVsICU+JSBncm91cF9ieShyZWxlYXNlX3llYXIpICU+JSBzdW1tYXJpc2UocmV2ZW51ZT1tZWFuKHJldmVudWVfYWRqKSksIGFlcyh4PXJlbGVhc2VfeWVhciwgeT1yZXZlbnVlLCBjb2xvcj0nbm90IG5vdmVsJykpIApgYGAKCgoKCiMgUXVlc3Rpb24gNDogRG8gYnVkZ2V0IGFuZCByZXZlbnVlLCBhbmQgYnVkZ2V0IGFuZCBwb3B1bGFyaXR5IGhhdmUgYW55IGNvcnJlbGF0aW9uPwoKYGBge3J9CiMgUGxvdCBidWRnZXQgYW5kIHJldmVudWUKZ2dwbG90KGRhdGE9bW92aWVzLCBhZXMoeD1idWRnZXRfYWRqLCB5PXJldmVudWVfYWRqKSkgKwogIGdlb21fcG9pbnQoKSArCiAgZ2VvbV9zbW9vdGgobWV0aG9kPSdsbScpCgojIFBsb3QgYnVkZ2V0IGFuZCBwb3B1bGFyaXR5CmdncGxvdChkYXRhPW1vdmllcywgYWVzKHg9YnVkZ2V0X2FkaiwgeT1wb3B1bGFyaXR5KSkgKwogIGdlb21fcG9pbnQoKSArCiAgZ2VvbV9zbW9vdGgobWV0aG9kPSdsbScpCgojIFBsb3QgcmV2ZW51ZSBhbmQgcG9wdWxhcml0eQpnZ3Bsb3QoZGF0YT1tb3ZpZXMsIGFlcyh4PXJldmVudWUsIHk9cG9wdWxhcml0eSkpICsKICBnZW9tX3BvaW50KCkgKwogIGdlb21fc21vb3RoKG1ldGhvZD0nbG0nKQpgYGAKCgoKCgo=